program tc07;
vars i,j,k:integer;
procedure teste1();
        procedure teste11();
		begin
			i:=i*1;
			j:=j*1;
			k:=k*1
		end;
	begin
		i:=1+1;
                teste11();
		k:=k+1
	end;
procedure teste2();
	begin
		i:=i-1;
		j:=j-1;
		k:=k-1
	end;
begin
	i:=1;j:=1;k:=1;
	if (i<11)
	then begin
                teste1()
        end;
	if not(j<=k)
	then begin
		if (i + j)>5 then teste2()
		end
		else begin
			if j>0 then teste1()
				else teste2()
	end
end.
